home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / budget.arc / REGRESS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-26  |  768 b   |  41 lines
  1. 10  PRINT "LINEAR REGRESSION"
  2. 20  PRINT
  3. 30  PRINT "NUMBER OF KNOWN POINTS";
  4. 40  INPUT N
  5. 100  FOR I=1 TO N
  6. 110  PRINT "X,Y OF POINT ";I;
  7. 120  INPUT X,Y
  8. 130  J=J+X
  9. 140  K=K+Y
  10. 150  L=L+X^2
  11. 160  M=M+Y^2
  12. 170  R2=R2+X*Y
  13. 180  NEXT I
  14. 190  B=(N*R2-K*J)/(N*L-J^2)
  15. 200  A=(K-B*J)/N
  16. 210  PRINT
  17. 220  PRINT "F(X) = ";A;" + (";B;" * X)"
  18. 230  J=B*(R2-J*K/N)
  19. 240  M=M-K^2/N
  20. 250  K=M-J
  21. 260  PRINT
  22. 270  R2=J/M
  23. 280  PRINT "COEFFICIENT OF DETERMINATION  (R^2):"
  24. 290  PRINT R2
  25. 300  PRINT
  26. 310  PRINT "COEFFICIENT OF CORRELATION:"
  27. 320  PRINT SQR(R2)
  28. 330  PRINT
  29. 340  PRINT "STANDARD ERROR OF ESTIMATE:"
  30. 350  PRINT SQR(K/(N-2))
  31. 360  PRINT
  32. 370  PRINT "INTERPRETATION: ";
  33. 380  PRINT "(ENTER X=0 TO END)"
  34. 390  PRINT "X =";
  35. 400  INPUT X
  36. 410  IF X=0 THEN 450
  37. 420  PRINT "Y = ";A+B*X
  38. 430  PRINT
  39. 440  GOTO 390
  40. 450  END
  41.